io Programmo 23/IOPROG_23.ISO/SOFT/TEXPLIST.ZIP/demo/Delphi 4/unit1.dfm/unit1.txt

Text File | 1999-02-01 | 10.8 KB | 411 lines

object Form1: TForm1
  Left = 347
  Top = 181
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TExportListView v2.00 Demo'
  ClientHeight = 254
  ClientWidth = 464
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 464
    Height = 254
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 462
      Height = 252
      ActivePage = TabSheet4
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object TabSheet4: TTabSheet
        Caption = 'Introduction'
        object Shape3: TShape
          Left = 8
          Top = 8
          Width = 433
          Height = 209
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label5: TLabel
          Left = 24
          Top = 104
          Width = 399
          Height = 64
          Caption =
            'This demo illustrates the essential features of the TExportListV' +
            'iew component. However, this is a powerful component with some a' +
            'dvanced features also, so please have a good look at the help fi' +
            'le to read about them.'
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label6: TLabel
          Left = -8
          Top = 32
          Width = 457
          Height = 41
          Alignment = taCenter
          AutoSize = False
          Caption = 'TExportListView v2.00'
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -35
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Demo 1 - Choose Method'
        object Bevel1: TBevel
          Left = 368
          Top = 84
          Width = 81
          Height = 2
        end
        object Shape2: TShape
          Left = 8
          Top = 8
          Width = 441
          Height = 25
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label2: TLabel
          Left = 16
          Top = 14
          Width = 258
          Height = 13
          Caption = 'First, click "Populate" to put some data in the ListView.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Shape5: TShape
          Left = 5
          Top = 168
          Width = 441
          Height = 49
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label7: TLabel
          Left = 16
          Top = 174
          Width = 417
          Height = 43
          AutoSize = False
          Caption =
            'Try dragging the columns around and then exporting. TExportListV' +
            'iew correctly handles this behaviour even though Delphi itself d' +
            'oes not!'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object ListView1: TListView
          Left = 8
          Top = 48
          Width = 353
          Height = 113
          Columns = <
            item
              Caption = 'Last Name'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Caption = 'First Name'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Caption = 'Age'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Caption = 'Occupation'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Caption = 'Hobby'
              Width = -2
              WidthType = (
                -2)
            end>
          FullDrag = True
          HotTrackStyles = []
          MultiSelect = True
          ReadOnly = True
          TabOrder = 3
          ViewStyle = vsReport
        end
        object Button1: TButton
          Left = 368
          Top = 48
          Width = 81
          Height = 25
          Caption = 'Populate'
          Default = True
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 368
          Top = 96
          Width = 81
          Height = 25
          Caption = 'Export'
          TabOrder = 1
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 368
          Top = 128
          Width = 81
          Height = 25
          Caption = 'Print'
          TabOrder = 2
          OnClick = Print1Click
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Demo 2 - Execute Method'
        object Shape1: TShape
          Left = 8
          Top = 8
          Width = 441
          Height = 25
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label1: TLabel
          Left = 16
          Top = 14
          Width = 309
          Height = 13
          Caption =
            'First, click "Populate" in Demo 1 to put some data in the ListVi' +
            'ew.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Shape6: TShape
          Left = 5
          Top = 40
          Width = 441
          Height = 49
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label3: TLabel
          Left = 16
          Top = 46
          Width = 417
          Height = 43
          AutoSize = False
          Caption =
            'What if you want to export only to say, Microsoft Word? without ' +
            'any dialogs? No problem, just look at the code below.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Button4: TButton
          Left = 136
          Top = 160
          Width = 169
          Height = 25
          Caption = 'Export Word to File'
          TabOrder = 0
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 136
          Top = 128
          Width = 169
          Height = 25
          Caption = 'Export Word to Screen'
          TabOrder = 1
          OnClick = Button5Click
        end
      end
      object TabSheet5: TTabSheet
        Caption = 'Registration'
        object Shape4: TShape
          Left = 8
          Top = 8
          Width = 438
          Height = 209
          Brush.Color = clYellow
          Shape = stRoundRect
        end
        object Label8: TLabel
          Left = 24
          Top = 40
          Width = 165
          Height = 16
          Caption = 'Please click here to register'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          Transparent = True
          OnClick = Label8Click
        end
        object Label9: TLabel
          Left = 24
          Top = 120
          Width = 207
          Height = 16
          Caption = 'Please click here to send us e-mail'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          Transparent = True
          OnClick = Label9Click
        end
        object Label10: TLabel
          Left = 24
          Top = 64
          Width = 271
          Height = 16
          Caption = 'Web Site: http://www.igather.com/components'
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label11: TLabel
          Left = 24
          Top = 152
          Width = 385
          Height = 73
          AutoSize = False
          Caption =
            'Feel free to us bug reports, suggestions, and any other inquires' +
            '.'
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
      end
    end
  end
  object ExportListView1: TExportListView
    Options = [ShowClipboardMsg, ShowProgress, TimeStamp]
    Title = 'TExportListView Demo'
    Footer =
      'Please send any questions or bug reports to [e-mail]. Yo' +
      'u can register at http://www.igather.com/components'
    ListView = ListView1
    ExportType = xMicrosoft_Word
    AllowedTypes = [xHTML, xMicrosoft_Word, xMicrosoft_Excel, xText, xRichText, xText_Comma_Delimited, xText_Tab_Delimited, xClipboard]
    Left = 360
    Top = 24
  end
  object MainMenu1: TMainMenu
    Left = 392
    Top = 24
    object File1: TMenuItem
      Caption = '&File'
      object Print1: TMenuItem
        Caption = '&Print'
        ShortCut = 16464
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Prin&t Setup...'
        OnClick = PrintSetup1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 424
    Top = 24
  end
end